home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / falcon / nt_dsp1.lzh / NT_DSP1.MSA / LFLTS / LATFIR1T.ASM < prev    next >
Encoding:
Assembly Source File  |  1989-01-24  |  1.4 KB  |  50 lines
  1. ;
  2. ; This program originally available on the Motorola DSP bulletin board.
  3. ; It is provided under a DISCLAMER OF WARRANTY available from
  4. ; Motorola DSP Operation, 6501 Wm. Cannon Drive W., Austin, Tx., 78735.
  5. ; 
  6. ; Lattice FIR Filter Macro. (test program)
  7. ; 
  8. ; Last Update 08 Aug 86   Version 1.0
  9. ;
  10. ;
  11. ;       lattice FIR test program
  12. ;
  13.         opt     cex
  14.         page    132,66,0,10
  15.         nolist
  16.         include 'dsplib:ioequ'
  17.         list
  18.         include 'dsplib:latfir1'
  19.  
  20. order   equ     3               ;3 coefficient lattice
  21. datin   equ     $ffff           ;location in Y memory of input file
  22. datout  equ     $fffe           ;location in Y memory of output file
  23. npts    equ     20              ;number of points to process
  24.  
  25.         org     x:0
  26. state   ds      10              ;filter states
  27.  
  28.         org     y:0
  29. kadd    dc      .5,-.5,.2       ;reflection coefficients, k1,k2,k3
  30.  
  31.         org     p:$100
  32. start
  33.         movep   #0,x:M_BCR      ;no wait states on external i/o
  34.  
  35.         move    #state,r0       ;point to filter states
  36.         move    #order,m0       ;mod on filter states
  37.         move    #kadd,r4        ;point to reflection coefficients
  38.         move    #order,m4       ;mod on reflection coefficients
  39.  
  40.         do      #npts,_endp
  41.  
  42.         movep   y:datin,b       ;get sample, set t
  43.  
  44.         latfir1 order           ;do lattice fir
  45.  
  46.         movep   b,y:datout              ;output sample
  47. _endp
  48.  
  49.         END
  50.